unit UsuarioLoginFm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Buttons, md5;

type

  { TUsuarioLoginForm }

  TUsuarioLoginForm = class(TForm)
    SairBitBtn: TBitBtn;
    EntrarBitBtn: TBitBtn;
    UsuarioEdit: TEdit;
    SenhaEdit: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure SairBitBtnClick(Sender: TObject);
    procedure EntrarBitBtnClick(Sender: TObject);
    //procedure ButtonEntrarClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  UsuarioLoginForm: TUsuarioLoginForm;

implementation

uses
  UsuarioDM, MainFm, ConnectionDM;

{ TUsuarioLoginForm }

procedure TUsuarioLoginForm.SairBitBtnClick(Sender: TObject);
begin
  Application.Terminate();
end;

procedure TUsuarioLoginForm.EntrarBitBtnClick(Sender: TObject);
var
  UsuarioTipo:char;
begin
  UsuarioTipo:= UsuarioData.Login(UsuarioEdit.Text, SenhaEdit.Text);
  if (UsuarioTipo = #0) then begin
    ShowMessage('Usuário ou senha inválidos!');
  end else begin
    MainForm.IniciaUsuario(UsuarioEdit.Text, UsuarioTipo);
    UsuarioEdit.Clear();
    SenhaEdit.Clear();
    Hide();
    MainForm.Show();
  end;
end;


initialization
  {$I usuariologinfm.lrs}

end.
